while ( chomp( $name = <STDIN> ) ) {
	if ( $name =~ /fred/ ) {
		print "$name\n";
	}
	else {
		print "Not found!\n";
	}
}
